Inside Mac Games Volume 1

home *** CD-ROM | disk | FTP | other *** search

/ Inside Mac Games Volume 1 / Inside Mac Games Volume 1.iso / Shareware / Arcade / RoboWar / Tournament IV / Sparafucile / Sparafucile

Wrap

Text File | 1992-05-12 | 16.3 KB | 956 lines | [RobW/RWAR]

# # # Sparafucile # # "Spah-rah-foo-cheel" # # Josh Goldfoot April 1992 # # AOL Screen name: Goldfoot # # "Una stoccata e muor." -1 p' sto dhal: x 150 < alif ta ife alif: y 150 < tha jim ife ta: y 150 < dal kha ife tha: drop drop 10 a' sto 10 b' sto GoThere call 1 speedx' sto Cheteri jump jim: drop drop 10 a' sto 290 b' sto GoThere call -1 speedy' sto Tre jump dal: drop drop 290 a' sto 10 b' sto GoThere call 1 speedy' sto Odin jump kha: drop drop 290 a' sto 290 b' sto GoThere call -1 speedx' sto Dva jump StageTwo jump Alpha: x y < Beta if 300 x - y < nudgeRight nudgeUp ife Beta: 300 y - x < nudgeDown nudgeLeft ife GoThere: a x - 7 / speedx' sto b y - 7 / speedy' sto speedx speedy arctan aim' sto energy shield + 60 - shield' sto range range 100 < and Boom if collision collide if speedx 0 = speedy 0 = and exitt if GoThere jump nudgeUp: 0 aim' sto collision collide if aim b' sto collision collide if 10 y - 8 / speedy' sto collision collide if 0 speedy = nudgeUp2 if nudgeUp jump nudgeUp2: 10 y - movey' sto 10 y - movey' sto 10 y - movey' sto 10 y - movey' sto 10 y - movey' sto startLeft jump nudgeDown: 180 aim' sto collision collide if aim b' sto collision collide if 290 y - 8 / speedy' sto collision collide if 0 speedy = nudgeDown2 if nudgeDown jump nudgeDown2: 290 y - movey' sto 290 y - movey' sto 290 y - movey' sto 290 y - movey' sto 290 y - movey' sto startRight jump nudgeLeft: 270 aim' sto collision collide if aim b' sto collision collide if 10 x - 8 / speedx' sto collision collide if 0 speedx = nudgeLeft2 if nudgeLeft jump nudgeLeft2: 10 x - movex' sto 10 x - movex' sto 10 x - movex' sto 10 x - movex' sto 10 x - movex' sto startDown jump nudgeRight: 90 aim' sto collision collide if aim b' sto collision collide if 290 x - 8 / speedx' sto collision collide if 0 speedx = nudgeRight2 if nudgeRight jump nudgeRight2: 290 x - movex' sto 290 x - movex' sto 290 x - movex' sto 290 x - movex' sto 290 x - movex' sto startUp jump startLeft: drop 1 p + p' sto p 2 = stageTwo if -12 speedx' sto 270 aim' sto aim b' sto Left: x 70 < slowLeft if collision bumpLeft if radar radar 100 < and hopDown if collision bumpLeft if energy shield + 50 - shield' sto collision bumpLeft if aim 180 + aim' sto collision bumpLeft if Left jump slowLeft: 10 x - 7 / speedx' sto collision bumpLeft if 0 speedx = startDown if collision bumpLeft if range range 70 < and blast if collision bumpLeft if energy shield + 50 - shield' sto collision bumpLeft if slowLeft jump hopDown: 20 movey' sto return startDown: drop 12 speedy' sto 180 aim' sto aim b' sto Down: y 230 > slowDown if collision bumpDown if radar shieldsUp if collision bumpDown if energy shield + 50 - shield' sto collision bumpDown if aim 180 + aim' sto collision bumpDown if Down jump slowDown: 290 y - 7 / speedy' sto 0 speedy = startRight if collision bumpDown if range range 70 < and blast if energy shield + 50 - shield' sto slowDown jump hopRight: 20 movex' sto return startRight: drop 12 speedx' sto 90 aim' sto aim b' sto Right: x 230 > slowRight if collision bumpRight if radar radar 100 < and hopUp if collision bumpRight if energy shield + 50 - shield' sto collision bumpRight if aim 180 + aim' sto collision bumpRight if Right jump slowRight: 290 x - 7 / speedx' sto collision bumpRight if 0 speedx = startUp if collision bumpRight if range range 70 < and blast if collision bumpRight if energy shield + 50 - shield' sto collision bumpRight if slowRight jump hopUp: -20 movey' sto return startUp: drop -12 speedy' sto 0 aim' sto aim b' sto Up: y 70 < slowUp if collision bumpUp if radar radar 100 < and hopLeft if collision bumpUp if energy shield + 50 - shield' sto collision bumpUp if aim 180 + aim' sto collision bumpUp if Up jump slowUp: 10 y - 7 / speedy' sto collision bumpUp if 0 speedy = startLeft if collision bumpUp if range range 70 < and blast if collision bumpUp if energy shield + 50 - shield' sto collision bumpUp if slowUp jump hopLeft: -20 movex' sto return shieldsUp: energy shield + shield' sto return stageTwo: drop -1 p' sto mainTwoLoop: 1 speedy' sto Odin: b258 call collision bump258 if b101 call collision bump101 if b258 call collision bump258 if b101 call collision bump101 if b258 call collision bump258 if b101 call collision bump101 if -1 speedx' sto Dva: b348 call collision bump348 if b191 call collision bump191 if b348 call collision bump348 if b191 call collision bump191 if b348 call collision bump348 if b191 call collision bump191 if -1 speedy' sto Tre: b78 call collision bump78 if b281 call collision bump281 if b78 call collision bump78 if b281 call collision bump281 if b78 call collision bump78 if b281 call collision bump281 if 1 speedx' sto Cheteri: b168 call collision bump168 if b11 call collision bump11 if b168 call collision bump168 if b11 call collision bump11 if b168 call collision bump168 if b11 call collision bump11 if 1 speedy' sto b258 call collision bump258 if b101 call collision bump101 if b258 call collision bump258 if b101 call collision bump101 if b258 call collision bump258 if b101 call collision bump101 if -1 speedx' sto b348 call collision bump348 if b191 call collision bump191 if b348 call collision bump348 if b191 call collision bump191 if b348 call collision bump348 if b191 call collision bump191 if -1 speedy' sto b78 call collision bump78 if b281 call collision bump281 if b78 call collision bump78 if b281 call collision bump281 if b78 call collision bump78 if b281 call collision bump281 if 1 speedx' sto b168 call collision bump168 if b11 call collision bump11 if b168 call collision bump168 if b11 call collision bump11 if b168 call collision bump168 if b11 call collision bump11 if 0 SPEEDX' STO 0 SPEEDY' STO startLeft call b258: -6 speedx' sto 258 aim' sto aim b' sto b258L: collision bump258 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump258 if x 40 < exitt if collision bump258 if b258L jump b101: 6 speedx' sto 101 aim' sto aim b' sto b101L: collision bump101 if energy shield + 50 - shield' sto collision bump101 if x 260 > exitt if b101L jump b281: -6 speedx' sto 281 aim' sto aim b' sto b281L: collision bump281 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump281 if x 40 < exitt if b281L jump b78: 6 speedx' sto 78 aim' sto aim b' sto b78l: collision bump78 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump78 if x 260 > exitt if b78l jump b348: -6 speedy' sto 348 aim' sto aim b' sto b348l: collision bump348 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump348 if y 40 < exitt if b348l jump b191: 6 speedy' sto 191 aim' sto aim b' sto b191l: collision bump191 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump191 if y 260 > exitt if b191l jump b11: -6 speedy' sto 11 aim' sto aim b' sto b11l: collision bump11 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump11 if y 40 < exitt if b11l jump b168: 6 speedy' sto 168 aim' sto aim b' sto b168l: collision bump168 if energy shield + 50 - shield' sto collision bump258 if range range 70 < and quickBoom if collision bump168 if y 260 > exitt if b168l jump quickBoom: 150 fire' sto return collide: b aim' sto 25 shield' sto range boom IF aim 50 + aim' sto range boom IF aim 100 - aim' sto range boom IF aim 150 + aim' sto range boom IF aim 200 - aim' sto range boom IF aim 250 + aim' sto range boom IF aim 300 - aim' sto range boom IF aim 350 + aim' sto range boom IF aim 200 - aim' sto return boom: energy fire' sto 150 fire' sto return Close: energy fire' sto 150 fire' sto return reboom: energy 5 > boom if drop reboom jump exitt: drop return blast: energy fire' sto return # Rigoletto Ram Manager (C) Josh Goldfoot 1992 # (Just kidding) Bump258: 25 Shield' Sto Range Close If 308 Aim' Sto Range Close If 208 Aim' Sto Range Close If 358 Aim' Sto Range Close If 158 Aim' Sto Range Close If 98 Aim' Sto Range Close If 58 Aim' Sto Range Close If 283 Aim' Sto Range Close If 233 Aim' Sto Range Close If 333 Aim' Sto Range Close If 183 Aim' Sto Range Close If 23 Aim' Sto Range Close If 133 Aim' Sto Range Close If 73 Aim' Sto Range Close If 83 Aim' Sto Range Close If 258 Aim' Sto Return Bump101: 25 Shield' Sto Range Close If 151 Aim' Sto Range Close If 51 Aim' Sto Range Close If 201 Aim' Sto Range Close If 1 Aim' Sto Range Close If 301 Aim' Sto Range Close If 261 Aim' Sto Range Close If 126 Aim' Sto Range Close If 76 Aim' Sto Range Close If 176 Aim' Sto Range Close If 26 Aim' Sto Range Close If 226 Aim' Sto Range Close If 336 Aim' Sto Range Close If 276 Aim' Sto Range Close If 286 Aim' Sto Range Close If 101 Aim' Sto Return Bump348: 25 Shield' Sto Range Close If 38 Aim' Sto Range Close If 298 Aim' Sto Range Close If 88 Aim' Sto Range Close If 248 Aim' Sto Range Close If 188 Aim' Sto Range Close If 148 Aim' Sto Range Close If 13 Aim' Sto Range Close If 323 Aim' Sto Range Close If 63 Aim' Sto Range Close If 273 Aim' Sto Range Close If 113 Aim' Sto Range Close If 223 Aim' Sto Range Close If 163 Aim' Sto Range Close If 173 Aim' Sto Range Close If 348 Aim' Sto Return Bump191: 25 Shield' Sto Range Close If 241 Aim' Sto Range Close If 141 Aim' Sto Range Close If 291 Aim' Sto Range Close If 91 Aim' Sto Range Close If 31 Aim' Sto Range Close If 351 Aim' Sto Range Close If 216 Aim' Sto Range Close If 166 Aim' Sto Range Close If 266 Aim' Sto Range Close If 116 Aim' Sto Range Close If 316 Aim' Sto Range Close If 66 Aim' Sto Range Close If 6 Aim' Sto Range Close If 16 Aim' Sto Range Close If 191 Aim' Sto Return Bump78: 25 Shield' Sto Range Close If 128 Aim' Sto Range Close If 28 Aim' Sto Range Close If 178 Aim' Sto Range Close If 338 Aim' Sto Range Close If 278 Aim' Sto Range Close If 238 Aim' Sto Range Close If 103 Aim' Sto Range Close If 53 Aim' Sto Range Close If 153 Aim' Sto Range Close If 3 Aim' Sto Range Close If 203 Aim' Sto Range Close If 313 Aim' Sto Range Close If 253 Aim' Sto Range Close If 263 Aim' Sto Range Close If 78 Aim' Sto Return Bump281: 25 Shield' Sto Range Close If 331 Aim' Sto Range Close If 231 Aim' Sto Range Close If 21 Aim' Sto Range Close If 181 Aim' Sto Range Close If 121 Aim' Sto Range Close If 81 Aim' Sto Range Close If 306 Aim' Sto Range Close If 256 Aim' Sto Range Close If 356 Aim' Sto Range Close If 206 Aim' Sto Range Close If 46 Aim' Sto Range Close If 156 Aim' Sto Range Close If 96 Aim' Sto Range Close If 106 Aim' Sto Range Close If 281 Aim' Sto Return Bump168: 25 Shield' Sto Range Close If 218 Aim' Sto Range Close If 118 Aim' Sto Range Close If 268 Aim' Sto Range Close If 68 Aim' Sto Range Close If 8 Aim' Sto Range Close If 328 Aim' Sto Range Close If 193 Aim' Sto Range Close If 143 Aim' Sto Range Close If 243 Aim' Sto Range Close If 93 Aim' Sto Range Close If 293 Aim' Sto Range Close If 43 Aim' Sto Range Close If 343 Aim' Sto Range Close If 353 Aim' Sto Range Close If 168 Aim' Sto Return Bump11: 25 Shield' Sto Range Close If 61 Aim' Sto Range Close If 321 Aim' Sto Range Close If 111 Aim' Sto Range Close If 271 Aim' Sto Range Close If 211 Aim' Sto Range Close If 171 Aim' Sto Range Close If 36 Aim' Sto Range Close If 346 Aim' Sto Range Close If 86 Aim' Sto Range Close If 296 Aim' Sto Range Close If 136 Aim' Sto Range Close If 246 Aim' Sto Range Close If 186 Aim' Sto Range Close If 196 Aim' Sto Range Close If 11 Aim' Sto Return Bumpup: 25 Shield' Sto Range Close If 50 Aim' Sto Range Close If 310 Aim' Sto Range Close If 100 Aim' Sto Range Close If 260 Aim' Sto Range Close If 200 Aim' Sto Range Close If 160 Aim' Sto Range Close If 25 Aim' Sto Range Close If 335 Aim' Sto Range Close If 75 Aim' Sto Range Close If 285 Aim' Sto Range Close If 125 Aim' Sto Range Close If 235 Aim' Sto Range Close If 175 Aim' Sto Range Close If 185 Aim' Sto Range Close If 0 Aim' Sto Return Bumpright: 25 Shield' Sto Range Close If 140 Aim' Sto Range Close If 40 Aim' Sto Range Close If 190 Aim' Sto Range Close If 350 Aim' Sto Range Close If 290 Aim' Sto Range Close If 250 Aim' Sto Range Close If 115 Aim' Sto Range Close If 65 Aim' Sto Range Close If 165 Aim' Sto Range Close If 15 Aim' Sto Range Close If 215 Aim' Sto Range Close If 325 Aim' Sto Range Close If 265 Aim' Sto Range Close If 275 Aim' Sto Range Close If 90 Aim' Sto Return Bumpdown: 25 Shield' Sto Range Close If 230 Aim' Sto Range Close If 130 Aim' Sto Range Close If 280 Aim' Sto Range Close If 80 Aim' Sto Range Close If 20 Aim' Sto Range Close If 340 Aim' Sto Range Close If 205 Aim' Sto Range Close If 155 Aim' Sto Range Close If 255 Aim' Sto Range Close If 105 Aim' Sto Range Close If 305 Aim' Sto Range Close If 55 Aim' Sto Range Close If 355 Aim' Sto Range Close If 5 Aim' Sto Range Close If 180 Aim' Sto Return Bumpleft: 25 Shield' Sto Range Close If 320 Aim' Sto Range Close If 220 Aim' Sto Range Close If 10 Aim' Sto Range Close If 170 Aim' Sto Range Close If 110 Aim' Sto Range Close If 70 Aim' Sto Range Close If 295 Aim' Sto Range Close If 245 Aim' Sto Range Close If 345 Aim' Sto Range Close If 195 Aim' Sto Range Close If 35 Aim' Sto Range Close If 145 Aim' Sto Range Close If 85 Aim' Sto Range Close If 95 Aim' Sto Range Close If 270 Aim' Sto Return